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-1984 00:52: VAX=11 BLiss-32_v4.0-742 p 1 
ory be 93535:98 ee neAAS Fenech Tins cneacommon.e32:9°%° a 
MODULE COMMON ( | 
LANGUAGE , (BL 18832), 
IDENT = "04-000" 


BEGIN 


Sssss 
EWR 


3 | 

Pas 

$ $ 

par 007 | | 

3 3 008 : ESERIES LOCLIIOO TESS TESTE EET E TT TTT TT TT PTC PCP eee cece eerie | | 
; Hl * 
; 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 11 11. 1 !®* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
: \¢ \¢ ! - ALL RIGHTS RESERVED. . 

; 96 014 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

; 015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

; Bate 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

HY 17 001 1 !@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

H 18 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

: iB st : :* TRANSFERRED. * 

Py .* a 

; 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

3 ¢ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 00 1 !* CORPORATION. * 

3; 0024 1 !* 4 

; 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

HY $8 4 $ : i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

Ps H ® 

3 @ 0028 1 !* * 

: ; 594 } SRR RRA AAA A AREER AA AAA A AEE E TARE AAAAAAAAAAAAEA AREER 

om 0031 1 !++ 

3 ¢ ht 1! 

; 0033 1 ! FACILITY: FI1IACP Structure Level 1 

; 4 0034 1! 

; 5 0035 1 ! ABSTRACT: 

g 6 0036 1! 

; 0037 1! This module is the common impure area of FCP, includiiig the 

; $3: Boa8 : routine that initializes it for each request. 

: 40 0040 1 | ENVIRONMENT: 

i. oF 0041 1! 

:; 642 B0e§ 1! STARLET operating system, including privileged system services 
; «643 094 , 7 and internal exec routines. 

; «6464 044 1! 

: 45 045 1 !-- | 
; 46 BOe8 1! 
; ¢ 0047 1! 

; | B08 } : AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 23:42 | 
; 30 950 | i MODIFIED BY: | 
3 : 

3 2§ O26 1! v03-002 ACG0408 Andrew C. Goldstein, 20-Mar-1984 16:36 
3 :7 37 : } Reduce size of LOCAL_ARB 

F 33 55 1! v03-001 ACG0346 Andrew C. Goldstein, 2-Aug-1983 15:15 

; 2$ $28 : Remove job controller mailbox cells 


K 11 
16-Sep-1984 00:52: VAX-11 Bliss-32 V4.0-742 Page 2) 
13-88-1382 99:36:58 DISKSVMSMASTER:CF11A.SRCJCOMMON.832;1 ° ag! 
3 H : 1! v02-003 he pts Andrew C. Goldstein, 22-Dec-1981 20:18 
2 : Add job controller mailbox channel 
: 6 ii vo2-002 AcG38100 Andrew C. Goldstein, | 3-Jun-1981 11:50 
3 86 ! } Fix granting of SYSPRV to volume owner 
64 1 i v02=001 ACG0167 Andrew C. Goldstein 7-May-1980 18:48 
; 65 5 Vi. Previous revision history moved to F11A.REV 
; ef 5 ' : 
> 69 5 | LIBRARY VSYSSLIBRARY:L1B,L32"; 
5 0 2 1 REQUIRE ‘SRCS:FCPDEF.B 3 
- 7 
ine $ 1 FORWARD ROUTINE 
; 7 HY 1 INIT_COMMON : NOVALUE, ! initialize global storage 
: 75 9 1 SAVE _CONTEXT : NOVALUE, ' save reentrant context area 
3; 0390 1 RESTORE_CONTEXT : NOVALUE; ! restore reentrant context area 
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1 1! 
' 
§ ACP global inpure area 
5 ii. 
GLOBAL 
QUEUE HEAD : REF BBLOCK,  ! pointer to ACP queue header 
10_CHANNEL, ! channel number for all 1/0 
DISK_UCB : REF BBLOCK, ! original UCB of our channel 


! The remaining locations are initialized to known values (mainly zero) 

by the routine. 

: USER_STATUS 1/0 status to be returned to user 
I Tus status block for FCP 1/0 


Fk tl ek ke 


oooo OOCOCCCSCO 
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start LBN of unrecorded blocks 


1 
STA : 
7 PACK BLOCK, ' address of current 1/0 request packet 
8 CURRENT _UCB LOCK, ! address of UCB of current request 
9 CURRENT_VCB BBLOCK, ! address of VCB of current request 
0 EW FID, ! file number of unrecorded file ID 
1 HEABER_LBN, ' LBN of Last file header read 
; DIR_FCB : REF BBLOCK, ! FCB of directory file 
DIR_WINDOW : REF BBLOCK, ! window of current directory 
4 B1TMAP_VBN ' VBN of current storage map block 
5 BITMAP"BUFFER =: REF BBLOCK, address of current storage map block | 
6 DIR_VBN ' VBN of current directory bloc 
7 DIR-BUFFER : REF BBLOCK, ! address of current directory block 
8 DIR_RECORD, ' record number of found directory entry 
s HIGREST_VERSION, ! highest version number in directory 
0 LOWEST VERSION, ' lowest version number in directory 
1 FIRST_FREE, ! record number of first free entry 
; SUPER_FID : BBLOCK CFIDSC_LENGTH], ! file ID of superseded file | 
LOCAL _FIB : BBLOCK CFIBSC_LENGTH], ! peers FIB of this operation. 
4 SECOND _FIB : BBLOCK CFIBSC_LENGTH], ! FIB for secondary file operation 
o 5 LOCAL_ARB : BBLOCK CARBSC_HEADER], ! local copy of caller's ARB 
' The following locations are the re-enterable | 
' context area and must be saved when an 
' secondary operation is performed. 
CONTEXT_START : VECTOR (0) ! eeeee The next item must be CLEANUP_FLAGS 
CLEANUP-FLAGS =: BITVECTOR (323, ' cleanup action flags 
FILE_HEADER : REF BBLOCK, } address of current file header 
f 
i 
i 


COUNT, count of unrecorded blocks 
PRIMARY_FCB : REF BBLOCK, address of primary file FCB 
CURRENT WINDOW : REF BBLOCK, address of file window 
T_FIB : REF BBLOCK, pointer to FIB currently in use 
CONTEXT END : VECTOR (0); 
GLOBAL LITERAL 
CONTEXT_SIZE = CONTEXT_END = CONTEXT_START; ! byte count of context area 
GLOBAL ; 
CONTEXT_SAVE : VECTOR CCONTEXT_SIZE, BYTE], ! area to save primary context | 
IMPURE _END : VECTOR (0); ! end of impure area 
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0448 1 GLOBAL LITERAL 


IMPURE SIZE = IMPURE_END = USER_STATUS; ! byte count of impure area 
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GLOBAL ROUTINE INIT_COMMON : 


; FUNCTIONAL DESCRIPTION: 


This routine contains the impure data base for FCP, and is called 
to initialize it. 


CALLING SEQUENCE: 
INIT COMMON () 

INPUT PARAMETERS: 
NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
DATABASE INITIALIZED 


! Initialization consists of zeroin 


9 the impure area and then setting the 
user request status to 1 (success). : 


MPURE_SIZE, USER_STATUS); 


FDI IPI III III at st st st tt st sk ak kk kk kk kk kk th dt tt 


! end of routine INIT_COMMON 


SLOCKEDD1$,NOEXE ,2 
00000 QUEUE HEAD: : 
00004 10_CHANNEL 
00008 DISK_UCB:: 
BLK 
0000C USER_STATUS: : 
-BLKB 


or fF & 
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-Sep-1 VAX-11 Biiss-32 V4.0-742 
Plbetae pg 99: 38; 8 DISKSVMSMASTER:CF11A.SRCJCOMMON.B32; ? a 35 
00014 1O_STATUS: 
0001¢ 1O_PACKET:: 
00020 CURRENT UCB: 
00024 CURRENT_VCB:: 
00028 NEW_FID:: i 
0002C HEADER_LBN: : 
00030 DIR_FCB:: ¥ 
00034 DIR ae 
00038 BITMAP. VEN: : 
0003C BITMAP BUFFER: 
00040 DIR_VBN:: 
LKB 

00044 DIR_BUFFER:: 
00048 DIR_RECORD:: 
0004C HIGHEST_VERSION: 

-BLKB 
00050 LOWEST_VERSION:: 
00054 FIRST_FREE:: 

BLK 
00058 SUPER_FID:: 

BLK 


ls 2 2 Se ee ee en ee ee en Se Se ee Se ee eee” |) 


80080 LOCAL ee 
~ "BLK 
QO0AO SECOND mt 
000EO LOCAL_ARB: : 
00110 CONTEXT ae. 
00110 CLEANUP_ TAGS: 
00114 FILE itt 
00118 UNREC_LBN: : ic 
0011 UNREC_COUNT: 
00120 PRIMARY fy 
00124 CURRENT “afte: 
00128 CURRENT Hits 
-BLKB 


ee eee er Oo 
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v04-000 
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3; Routine Size: 


18 bytes, 


0012€ CONTEXT_END:: 


.BLKB OO 
0012C CONTEXT_SAVE:: 
-BLKB 28 
00148 IMPURE _END: : 
BLKB OO 
CONTEXT SIZE== 38 
IMPURE _SIZE== 16 


-PSECT SCODES,NOWRT,2 


003¢ 000 ENTRY INIT COMMON, Saye R2/R3,R4 RS 
00 6E , 00 2C 0000 movcS «#0, TSP), #6, #516, USER_STATUS 
0000" CF 00 
0000" CF 1 pO 0000¢ MOVL #1, USER_STATUS 
04 00011 RET 


Routine Base: $CODE$S + 0000 
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; ' 1 49 GLOBAL ROUTINE SAVE_CONTEXT : NOVALUE = 

: 188 494 1 14+ | 
> «6186 495 1! 
3 ; 5 r)4 ! FUNCTIONAL DESCRIPTION: 
| 498 1! This routine saves the reentrant context area in the context save 

3 133 rh : area and initializes the context for a secondary operation. 
: 190 $01 1 
: «191 5 § 1 ! CALLING SEQUENCE: 

; 198 20 1) SAVE_CONTEXT () 

; 9 06 1! 

; 194 505 1 ! INPUT PARAMETERS: 

: 4195 9206 1! NONE 

; 196 828 1! 

; 197 0508 1! IMPLICIT INPUTS: 

; 198 0509 1! ACP impure area 

; «4199 0510 1! 

; 200 0511 1 ! OUTPUT PARAMETERS: 

; 201 bat¢ 1! NONE 

5 4 05135 1! 

; 0 0514 1 =! IMPLICIT OUTPUTS: 

: 206 0515 1! NONE 

: 205 0516 1! 

; 06 0517 1 ! ROUTINE VALUE: 

: 207 0518 1! NONE 

; 208 0519 1! 

; 09 0520 1 ! SIDE EFFECTS: 

3s 210 0521 1! NONE 
s et 05 . 1! 

3 sig 05 1 t= 

3 el 0524 #1 

; 6214 0525 2 BEGIN 

a 4b 0526 § 

; 216 0527 MAP 

; \ O26 CONTEXT_SAVE : BITVECTOR; ! map saved copy of cleanup flags 

: 219 0380 

3 313 0531 ' Check for excessive recursion in the ACP; then save the context and do the 

3 1 b236 ' setup. 

3 § 5 ! 
3 0534 
3 4 535 IF .CONTEXT_SAVE NEQ 0 
3 5 238 THEN BUG_CHECK (ACPRECURS, FATAL, ‘Attempted recursion in ACP secondary operation’); 
3 $$ 235 CHSMOVE (CONTEXT SIZE, CONTEXT _START, CONTEXT_SAVE); 

; 228 539 2 CHSFILL (0, CONTEXT SIZE, CONTEXT START); 
: oo 540 CHSFILL (¢ FIB$C_LENGTH, SECOND_FIB); 
; 541 2 CURRENT_FIB = SECOND FIB; | 
: 231 348 CONTEXT~SAVECCLF_CLEANUP) = 1; 

; g 544 END; ! end of routine SAVE_CONTEXT 


-EXTRN BUGS_ACPRECURS | 


<- 
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2 
DISKSVMSMASTER:CF11A.SRCJCOMMON.B32; , 


1465S 
007¢ 000 .ENTRY SAVE CONTEXT. Save R2,R3,R4,R5,R6 
0000' CF 9 0002 OVA CONTEXT SAVE, R6~ 
66 D5 000 TSTL CONTEXT= SA AVE! 
04 13 00009 BEQL =sés1$ 
FetE 0008 BUGW 
0000* 00000 “WORD  <BUGS ACPRECURS !4> 
66 E46 Ab 1¢ 28 OOOOF 1$ MOVE a3 , CONTEXT_START, CONTEXT_SAVE 
1¢ 00 6E a 00 C 0014 mMOvCS #0, (SP), #07 #28, CONTEXT_START 
0040 8F 00 6E ares 00 2c ose MOVCS #0, (SP), #0, #64, SECOND_FIB 
FC AG FF74 c$ 9 § MOVA SECOND FIB CURRENT. FIB 
01 Ab 88 9 a B16 #2, CONTEXT_SAVE+1 


; Routine Size: 48 bytes, Routine Base: S$CODE$ + 0012 
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F 12 
16-Sep-1984 00:52: VAX-11 Bliss-32 V4,0-742 Pa 0 
19-808- 1382 99:38:93 DISKSVMSMASTER:CF11A.SRCJCOMMON.B32; 1 - 3 
5 $3 GLOBAL ROUTINE RESTORE_CONTEXT : NOVALUE = 
to | tes | 
3 t3 yi 
i $3 FUNCTIONAL DESCRIPTION: 
re 1 This routine restores the reentrant context area from the context save 
r § area. 
44 & 
45 5 CALLING SEQUENCE: 
<8 § RESTORE_CONTEXT () 
8 8 INPUT PARAMETERS: 
49 5 NONE 
60 
4 
5 
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.EXTRN BUGS$_ACPUNSTAK 


.ENTRY RESTORE_CONTEXT, Save R2,R3,R4,R5,RO6 > 0545 | 
MOVAB CONTEXT“SAVE, R6 ; 


3 1 : 
3 1 ; 
3 1 : 
3 1 ; 
3 1 : 
; 1 : 
3 1 3 
3 5 1 : 
3 1 : 
3 1 $ 
i$ | 
; 3 1 | r 
i 24 5 1 ; 
3 5 1 : 
; 250 B 1 3 
3 2) 561 1! IMPLICIT INPUTS: 3 
; 26 320 1 ACP impure area ; 
3 2 563 1 3 
; 54 0564 «(1 OUTPUT PARAMETERS: | : 
3 €09 0565 1 NONE 3 
3 28 8208 1 : 
; 5 0507 1 IMPLICIT OUTPUTS: : 
; 258 0568 1 NONE ; 
; 259 3239p 1 3 
; 260 0 0 1 ! ROUTINE VALUE: | ; 
: 261 571 1 NONE 3 
: o¢ b2§ 1 ; 
H 6 0575 «1 SIDE EFFECTS: : 
; 264 0574 «+1 NONE 3 
; 265 0575 (1 3 
; 266 8276 1 !-- 3 
: 267 0577 1 3 
; 268 0578 BEGIN : 
; 269 0579 : 
; 270 0580 MAP 3 
5 14 038° CONTEXT_SAVE : BITVECTOR; ! map saved copy of cleanup flags : 
: 27 05 F 
; $t 0384 1 Check for excessive unstacking in the ACP; then restore the context. | : 
: 27 0386 | : 
; 2? 587 2 IF .CONTEXT SAVE EQL 0 | : 
3 8 0389 THEN BUG_CHECK (ACPUNSTAK, FATAL, ‘Attempted unstack in ACP primary context"); : 
; 80 590 CHSMOVE tertih SIZE, CONTEXT_SAVE, CONTEXT_START); : 
; 281 0591 CLEANUP_FLAGS CLF CLEANUP = 0; | ; 
3 . B238 CONTEXT-SAVE = 0; | : 
; «284 0594 END; ! end of routine RESTORE_CONTEXT | : 

3 


007¢ 68008 
56 0000" CF 9€ 00002 


eee 


12 | 
C 18. Sep-1984 VAX-11 Bliss-32 V4.0-742 11. CR 
yoee 800 12-88-1382 99: 36: 8 DISKSVMSMASTER: cf A. SRCJCOMMON.B32; a9 * 65). Vv 

6 7 TSTL ANTEXT_SAVE : 0587) 

oe iF Hae onc : 0588. 

008 . D . WOR sayss ACPUNSTAK !4> : 

E46 Ab 66 1 8 F 1$ Aoves ab. ron TEXT SAVE: CONTERT _START : 0590. 

—5 A6 0 A 14 BICcB LEANUP_PLA : 0591 

66 D4 18 CLRL COuTEK T_SAVE : 0592) 

4 1A RET : 0594 


; Routine Size: 27 bytes, Routine Base: SCODES + 0042 


| 
| 
85 595 1 
an ee 
5 
| 
| 
| 


; PSECT SUMMARY 

: Name Bytes Attributes | 
; $LOCKEDD1$ 328 NOVEC, ate RD ,NOEXE,NOSHR, LCL, REL, CON Oe TE oA Lents) 

; SCODES 93 NOVEC,NOWRT, RD EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; . ABS . 0 NOVEC,NOWRT, ‘NORD *NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 

; Library Statistics 
Reet pea. eer Syabols eco-cee- Pages Processing | 
$ File Total Loaded Percent Mapped Time | 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=L1S$:COMMON/OBJ=0BJ$:COMMON MSRC$:COMMON/UPDATE=(ENHS: COMMON) 

; Size: 93 code + 328 data bytes 

; Run Time: 09:67. 

; Elapsed Time: 0 


4940 
: Lexenes/CPU-nin: 1222 
; Used: 73 pages 


> Lines/CPU Min: 
; eet Bay Complete 
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